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TLJXECUTE: THIS MODULE CONTAINS T TMPT.TV FP EXECUTION-TIME PROCESSING 



COLLECT EXTERIOR PACKAGES 



- TLMELLNER EXECUTABLE-CODE COMMON AREA 
with tl_dacajcoai; 

use tljfat^eav; 

• TtMELINER EXECUTION-TIME COMMON AREA 
with tl_exee_coa; 
use tljexec_co£; 

- TIMELINER EXECUTION-TIME SUBROUTINES 
with tijaassubsr 

use tl^eksubs; 

■ TIMELINER GENERAL-* URPOSE SUBROUTINES 
With tx_subw 
use tl_subsr 

' INTERFACES 
with. tl_y ar_ons_jtctn ; 
use tl_TOjr_opf__oftaa; 

SUBROUTINES TO DEAL WITH VARIABLES 
with tl_yarjopexations; 
use ti_vax_ap«CTCioxwj 

TEXT LNPUT/ OUTPUT PACKAGE 

With US3Ct_io; 

use text_io; 

TTMELINER INPUT/OUTPUT PACKAGE 
with tl io; 
use tl_To? 



PACKAGE BODY 



package body tl_execute is 



DECLARE CONSTANTS AND VARIABLES 



— — VARIABLES 

BLOCK POINTS* 

bp ; blotk_poiir.er__r.yper 

STATEMENT POINTER 

sp i stat__pointerjt:ype; 

LOCAL VERSION OF CALL NESTING LEVEL 
level : c»iI_icvQi_typcr 

LOCAL VERSION 07 CONSTRUCT RESTING DEPTH 
depth : const — ttepth__type; 



SUBROUTINE SPEClFiCATIONS 



SUBROUTINE TO EVALUATE -BEFORE/WTTBIN- 

function eval_hefore_wIthia (tp ; 1a hlock__pointer__type; 

sp t in, atatjoiaterjsype) rwvm tljsoolean; 



TL EXEC PROCEDURE 



procedure tl^exec <tl_Intinie : in tl_intiae_type? 

" ti__scAtui t aut tl_status__rypej is 

STATEMENT INDICATORS FOR TO£tt/ WHEN EVER/EVERY/ 17* CONSTRUCTS 

coastructjor_2io<iifier_stat : stat__aointer_type; 
ot hervi 59~c rjj n d_st *t z stat^point er__t ype? 

eise_ar_cnd_stat" ; atat__pointerjcypor 

INDICATOR TEAT CONDITION PASSED 

it^passes : tl_booleanr 

TIKE INTERVAL FOR EVALUATING CONSTRUCTS 

ti»c_intejrvil ; tl_numer±c; 

DATA GOOD FLAG 

dq i boolean; 

begi- 

OUT2UT STATUS CONTINUE UNLESS RESET LATER £Q 
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tl_stanns := tl^continuey 



FIRST PASS ffROCESSING 



if pass_conarer - a then 

INDICATE GLOBALLY TEAT IT'S EXECUTION TIMZ 

tiafellaerjnod* := raecetionjtise; 



PRINT KCADSR 



new_iine; 

pm: c- p ); 

put (- TIMELINES (SIM 3.0) — EXECUTION PROCESSING • ») - 

nev_line; 

Pat C — — — 

new line; *' 



READ DATA FILE 



— — SUBROUTINE TO READ FILE INTO TaBT.qg 
r©»d_data_file (•tl - script.<lata»j ; 

— PRIST DATA FILES 

— print jclaeliner^aca^nies (trim (bioclc_2aa£ (l) > ) ; 

— INDICATE IF CANNOT GO ON DUE TO CUSSES 
if n_cuss > 0 then 

5«t ("••*•** THERE WERE • * char (n_cuss) 4 " ERRORS IN INPUT,") 7 
newjlinc; 

put Rtrji WTXL NOW 3E TERMINATED...") - 

new_lite (2}r 
tljstatos d_ftxcepticitt? 
return; 
end if; . 

— INITIALIZE BLOCK STATEMENT POINTERS AND SLOCK STATUS 
£a±r bp in 1. .n_blocfc= loop 

IF IT^S A SEQUENCE. . . 

if block typec&p) - seq_falocker tnen 

SET DYNAMIC STATUS TO INITIAL STATUS 

sfegtienc sjsrt atns fop) bloe^statusjEype'vai rcn&p cats (block loc (bp) +6) ) 

SET POINTER TO FIRST STATEMENT IN BLOCK "~ *" 

statement ^poiarercbp) r- coap data (block ioc(bp)+2) ; 
end if; " ~" 

cad loop; 



SET OP INPUT Of VARIABLES 

REQUEST ONE-TIME TRANSFER OF VARIABLE LISTS FROM OTHER MACHINES 

get_tables; 

~ DECLARE LOCALS 
declare 

COMPONENT POINTER 

cp : cofflBj aoiBter_i:ype; 
— — COMPONENT TYPE 

ct 1 comp_type — type ; 

BEGIN BLOCS 

begin 

CCMB TABLES FOR VARIABLES 

cp X; 

loop 

EXIT WHEN REAC5 END 

exit wnen cp >- n_coaps; 

FIND COMPONENT TYPE 

ct comp type type'val {canro_daLa (cp) ) 7 

IF COMPONENT I5~A VARIABLE... 

if ct » booleac_jrar or ct w nuateric_yar or 
ct = chsrsecer_v&r or ct - event_vsr or 
ct • m£xed_var teen ~ 

SEND IN IT'S INDEX 

addjlnput var (ccmp cata (cp+2) ) ; 
end ir; " ** 

UPDATE COMPONENT POINTER 

if ct - subscript _li5"t then 

cp cp * coapjSata (c&fl ) 
el 5 if cc in booleaaj-lsts or CC in rnracri enlists or 
ct in character^! ist= or ct - nUteo^lisw tnen 
cp := cp +■ ccmp data(cp+2}; - 
end LI7 

Cp 2- Cp + conp_5pace (ct) ; 
end loop; 



END 3L0CX 

end; 
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EVERT PASS PROCESSING — - 



INITIALIZE SEQUENCE LOOP 



SET TIME TO INPUT TIMS 
tlffo :« tx_intin«? 

FOR COUNTING ACTIVE SEQUENCES 
n_act_seq 0; 



START BLOCK LOO? 



blacfc_icop: for b in I..n_blocfc= loop 

SEX LOCAL BLOCK POINTER 

bp b; 



PROCESS SEQUENCE IF ACTIVE 

if Ee^uen©9_jrta^us (bp) = seg^actlve rh**n 

— ptrc^line ("in block_loop block. * c eh&?Cbp)]j 

COUNT ACTIVE SEQUENCES 

a^act^seq i- n_acc^seq + 

SCI LOCAL COPY OF STATEMENT SOXXTSa 

«p ;a gtatcccntjOlflLftr (bp) ; 

SET LOCAL COPY OF CALL NESTING LEVEL 

level cailJLevei (bp) ; 

SET LOCAL COPY Of CONSTRUCT NESTING DEPTH 

depth := const jrfepth (bp); 



START STATSfEKT LOOP 



statement^! oop; loop 

— put — line ("in *tat«aent_loop at statement " 6 char (sp) ) ; 
DEBUG PRINT 

— put ("PA35 ■■ £ char (pa ==_ec tint er) s 

— • CONSIDERING STATEMENT • & char(*p) & 

— * £ co=p__ type_cype , is»ge(stateBeat:_cyp(ap> > £ 

— —IS SEQUENCE " 6 blccxjaaae (bp) ) ; 

— aew_Iine; 



FUNCTIONAL STATS£ENTS 



case runetionaijstateaients* (statecanr j:yp (sp) > is 



BLOCKING STATEMENTS 



when bloekingj statements -> 

PRINT THE STATEMENT 

prlnt_statement (bp r =p, ""); 

MATERIAL PARTICULAR TO SPECIFIC 3L0C3OTG STATE2ENTS 

ca«e blocJci:ig_statw=e--E.± • (statement_typ (sp) J is 



SgNDLE_BLOC KSa 

— SEQUENCE_3L0CKER — 
- — SUBSEQUENCE 3L0CXER 



when bXock_opencr£ -> 

ADVANCE STATEMENT POINTED 

so :■ sp + 



CLOSE 



when cloae blocker -> 

> IF -CLOSE SEQ - .-. 

if bloc* type (statepczstjiat (sp, 1J ) - seqjalocker then 

CEACTZVAZE BLOCK AND EXIT 

8ec^ence_=taLUS (stateraent_c3t (z? r U ) seq^l-active? 
ejtit stateseat^loop; 

if -CLOSE SU35EQ-... 

clsir siocJcjrvTactstateEient dac (s? r 115 - subseq_Dlocker then 
— RETURN TO* CALLER AT STATIST ASTER "CALL* 
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sp cal l star {bp, level) + i; 
DECREMENT NESTING LEVEL 

level := level - i- 
ond if j 



end case; 



CONTROL STATEMENTS 



when control statements 



MATERIAL PARTICULAR TO SPECIFIC CONTROL STATEMENTS. - , 
case control_stat events 4 (=tatcaentjtyp(sp) ) is 



WHEN 

when. when__statenent -> 

IMTIALJ2E 

can^r^ct_erjnodi£ier_stat statemeat_dat (sp, 1) 7 
otherwise jar_end_«at •= statementjiat (sp, 2) ; 

IF ZEIS IS THE FIRST ENCOUNTER*.. 

if const scat (bp, death J /= =9 then 

— - INCREMENT CONSTRUCT NESTING DEPTH, SET STATEMENT AND TYPE 
. depth depth + 1? 

CQnst_atat(bp, depth) sp; 

con=t_type (bp, depth) stateaeat_tyo(so) ; 
SET STATUS TO INDICATE HIRST ENCOUNTER 

construct status (bp, depth; initial; 
end if; 

— IF THERE'S A ■SEFORE/WITHIK" STATEMENT,,, 

if stntement_typ(sp+l) in construct nodi tiers then 

IF IT PASSES... 

if eval_bef orejwIthlA (bp, se+1) - true then 

SET STATUS TO "CONCLUDE" 

eonstruct.sratus (bp, depth) conduce; 
- — PRINT BOTH STATEMENTS 

prine._at£teffient (bp, sp, "UNKNOWN") 
print_Stat«ment (bp P =p+l, -PASSED"); 

— CO TO "OTHERWISE" OR "END" STATEMENT 
sp othervise_©r_end stat; 

end if; ~ 
end if; 

IF -CONCLUDE" NOT INDICATED.. . 

If construct status (bp, depth) /= conclude then 

— EVALUATE"" WHEN " CONDITION 

eval_booXeAn (statement cat (sp, 3), dg, it^passes) ; 

SET STATUS TO "PASSED """if CONDITION PASSES 

if it passes - trve th«n 
SET STATUS TO "PASSED" 

constrnct_stac.us(bp r death) e&ssed? 
PRINT "WHEN" STATEMENT 

print_=tateaeat (bp, sp, "PASSED") ; 

— PRINT POSSIBLE "3EFCKE/WITE23?" STATEMENT... 

if 5fftBtesient_typ(sp+l) in construct modifiers then 

print statement (bp, sp+1, TAILED"; ; 
end if; ~ 

— 50 TO STATEMENT AFTER CONSTRUCT OR MODIFIER STATEMENT* 
ap 1- construct cr_i3odifi«r_stat *■ 1; 

end if; 
end if; 

IF THIS IS FIRST ENCOUNTER AND NO CONDITION PASSED. . . 

if const;met_status (bp, dspth) =» initial then 
RESET STATUS TO "PENDING* 

construct states (be, depth) 1- pending; 
9 HINT "WHEN" STATEMENT 

priat_=tatc=fl6ent (bp, sp, "PENDING") ; 

— PRINT "BEFORE/WITHIN" STATEMENT IP AN* 

if =tatement_typ(sp-rl) in canstrcctjnodlf lers then 

print_statc=ieat (bp, 2p*l, "SENDING") ; 
end If; 
end If; 

— EXIT IF CONSTRUCT IS STILL "PENDING"... 

exit statemcnt_Ioop when const ruct^status (bp, depth) - pending; 



WHENEVER 



wfiee wherever^Gtatectest -> 

INITIALIZE STATEMENT ADDRESSES 

eonstruct^rjttodifier^stBv ;= ctatercAt^dat (sp,l) ; 
othervi=e_or_end_stat sc*tement_dat (sp, 2) 

IF THIS IS THE FIRST ENCOUNTER. 

*f carjt Stat {DVr dcot-h) /- 3D tier* 

INCREMENT COMSTR-CT NESTING DEPTH, SET STATEMENT AND TYPE 
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depth depth +• 1/ 

const _st at (bp, depth) sp; 

eonsc_typ* (bp, depth) :- statement cya (sp) ; 
~ SET STATUS TO INDICATE FIRST ENCOUNTER 

const tttet_atatus (bp, depth) ;~ initial; 
end if; ~" 

IF THERE'S A "BEFORE/WITHIN" STATEMENT- - „ 

if statemeat_typ(spri) in construct modifiers then 

IF IT PASSES. „ „ 

if eveijsefore wicninCbo, sp+i) = crve then 
— SET STATU5~~T0 "CONCLUDE" 

4sqn=tcvct_statns(bp, depth) conclude; 

PRINT BOTH STATEMENTS 

print_stateaent (hp, sp, -UNKNOWN*); 
print_5tatc=ent (bp, sp+1, "PASSED"); 

GO TO "0TEERWXS2" OR •END" STATEMENT 

sp otherwise or end stat; 
end if; " ~ ~ 

end if; 

IF "CONCLUDE" NOT INDICATED... 

if constrcct_statiis (hp, depth) /= conclude then 

EVALUATE -WHENEVER - CONDITION-. - 

evaiJsoolean(st5t©ment_cat(sp,3), dg, itpajsses); 
IF STATUS IS CURRENTLY -PASSED"... 

if constrcct_statu!s (bo # death) = passed then 

IF CONDITION STILL PASSES... 

if it_pssscs; then 

EXIT FRCM THIS SEQUENCE FOR NOW 

exit statement looo; 
OTHERWISE 



— SET STATUS TO "INITIAL* TO MARS TRANSITION SACK TO "OFF* 

CQn^tnict^artatufiCbo, depth) initial; 
end if; 

OTHERWISE, IF THE CONDITION PASSES NOW... 

elsif it_passes then 

SET STATUS TO INDICATE PASSAGE 

construct_status(bp, depth) passed; 
PRINT " WHENEVER.** STATEMENT 

print_statettent (bp, sp, -PASSED-); 
PRINT POSSIBLE "3EF0RE7WITEXN* STATEMENT 

if statetnent_typ(sn+l) in constractjnodif iers tnen 
print statement (bp, sa+I, "FAILED") ; 

end if; 

GO TO STATEMENT AFTER CONSTRUCT OR. MODIFIER STATEMENT* 

sp t- const rest ormodifier stat + 1; 
end if; ~ 
end if; 

IF THI5 IS FIRST ENCOUNTER OR RESET PASS... 
if construet^statcs (bp, depth ) - initial then 
RESET STATUS TO "PENDING* 

eonstruct_statu2(bp p deoth) ;= pending; 
— PRINT "WHENEVER. 11 STATEMENT 

print_=tarenent (bp, sp, -PENDING*); 
PRINT -BEFORE/WITHIN" STATEMENT IF ANT 

if 3tateiuent_typ<=p-ri) in construct jaodif iers then 
print_state=ent (bp, sp+i, -PENDING"); 

end it: 
end if; 



EXIT IF CONSTRUCT IS STILL "PENDING- - 

exit statement^Iocp when const rvct_statvs (bp, depth) 



pending; 



EVERY 




when every_statement => 

INITIALIZE STATEMENT ADDRESSES 

constructor^ =odifier^stat statecentjdat (sp, 1) ; 
othervise3o*_enc_stat :=• stateisentjdat (sp, 2) ; 

IF THIS IS THE FIRST ENCOUNTER- 

if const — stat (bp, depth) /• sp then 

INCREMENT CONSTRUCT ME5TIN& DEPTH, SET STATEMENT AND TYPE 

depth :- depth * 1; 

can=t_stat (bp, cepth) ;= so; 

const *y?c(bp, depth) z- 3tateaent_typ(sp) ; 
— SET STATUS TO INDICATE FIRST ENCOUNTER 

construct status (bo, deceit) i- initial; 
ON FIRST PASS SET INITIAL TARGET TEME TO NOW 

t_cvery_tarc/(bP# depth) :r tire - tine fudge; 
end ir; ~~ 

IF -EVERv- PASSED LAST TIME 

if co.-istract_status (bp, death) - ocsscrf then 

RESET STATUS TO - ? END INC" 

const ruct_st3tus(bp f depth) i— pending; 
end if; ~ 

IF THERE'S A "3SF0RE/WTT3IN" STATEMENT... 

LZ sta-ement_-yp(=3+i> in conscruct_-ocif iers then 

I? IT PASSES* . . 

if eval i;efore_*ith;n sa-i-ll - t.rue zhfcn 

62- 
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SET STATUS 70 "CONCLUDE" 

construct stAttii; (bp, dcpch) := conclude 

PRINT BOTH STfcTEMSNTS 

print^statement [bp, ap, "UNknonn") 7 
print statement (ftp, £n+X r -PASSED") - 

GO TO "OTHERWISE" OS. "END" STATEMENT' 

sp := otherwise or end scat; 
end if? - - - 

end if; 

IF "CONCLUDE - SOT INDICATED.. „ 

if constract_ststus (bp, deptii) /- dozci^o then 
IF FIRST PASS OR IF TAfrCET TIME REACHED... 

— put (• EVERY TESTED; -) • 

— pot (tine); 

— put {" «); 

pat (t_eveiy tare (bo, death) J ; 

— act (- 

— put (t_e7ery_t£rg Cap, depth) - rlTiw) j 

— new_line; 

if time >= tj cvcry_targfop, depth) then 
SET STATUS TO INDICATE PASSAGE 

eonfltruct_status (bp, depth) ;» passed; 
PRINT "WHENEVER* STATEMENT 

print^statement (bp, sp, "PASSED*) 7 

— PRINT P055ISLE -BEFORE/ WITHIN" STATEMENT. . 

if statenient_typ<sp+I) in constructjaodif iers then 
printjstacwrwnt (bp, sp+i, "failed*) 7 

end i£7 
EVALUATE TIMS INTERVAL 

eyaI^nutLezic(etatement^dat(*p,3) r dg, tiiae interval); 
- — * UPDATE TARCET TIME ~ 

t jeveryj t (bp, depth) ;= 
~~ t_every_tarc:(hp, depth) +• ti=e interval; 

— GO TO STATEMENT AFTER CONSTRUCT OR.""MODIFIER STATEMENT* 
so coet£tructjftff_aiodi£Icx' stst t 1; 

end ir; ~ 
end i*T; 

EXIT IF CONSTRUCT IS "PENDING"-.. 

exit stateaent_lQQp when eonstmct_status (bp, depth) * pending; 



when ix_stateaeirt => 

ZMXTXALTZE STATEMENT ADDRESSES 

else_er__end_=tat sLatesee£_dat (sp,I) ; 

INCREMENT CONSTRUCT NESTING DEPTH, SET STATEMENT AND TYPE 

depth depth + 1; 

const_=tat (bp, depth) sp; 

const type (bp, depth) := ststeGient_typ(sp); 

SET xSlTIAlr STATUS TO "PENDING" 

const*i2et_£tatus (bp, depth) peadiag,- 

If -IF* CONDITION PASSES. . . 

evaX_booIeaa(statenient_dat (sp,2), dc, it z^ases) ; 
ir itjpasses then ~* 
— PRINT STATEMENT 

printjstatcmextc (bo, so, "PASSED") 7 
< SET INDICATOR 

const rtict_Atat 122 (bp, depth) ±- p&ssed; 
CONTINUE TO NEXT STATEMENT 

sp ;= sa + I; 

IF "IF" CONDITION TAILS... 

else 

PRINT STATEMENT 

print statement (bp, sp, -?ATtE0-); 
GO TO"NEXT "ELSE" OR "END" STATEMENT--. 

sp else or end star; 
end 157 



BEFORE 

when beferc_=tateaent -> 

SEE "KHE2I/WEENEVER/SVZRY" LOGIC 

ft ill 17 



WITHIN 

whefl witbin^stste^cnt -> 

SEE "WHENAWn3NEVEJi/EVEav- LCGIC 

ami; 
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Hartfri f Tlr • a n pUcatlcaa t A<ia i tl J a < f _»Bap? tl ^,4d* 
OTHERWISE 



when ctherwisejTtacccicnfc => 

— IF GOT HERS FROM "3EF0RS/WITHIN- STA yrrvyM T 

If constrcct_st3tus <bp r depth) - conclude then 

CO ON TO NEXT STATEMENT 

sp :» sp + l; 

OR FELL THROUGH AFTER -«H£S/WEEKEVSR/SVERv- 

else 

SKIP TO "END" STATEMENT 

=p ; w statenent. dat (sp, 1] ; 
end If* ~ 



ELSEIF 



when olseif ^statement => 

INITIALIZE STATEMENT ADDRESSES 

else_or _end_stat statementjsat (sp, 1} • 

IF "If OR PREVIOUS "ELSEIF" HAS ALREADY PASSED... . 

ir eoastrueL_status(bp, depth) - passed then 
- — GO OK TO NEXT "ELSE" OR "END" STATEMENT 
sp *- e I se_o r_en<2_stat ; 

OTHERWISE... 

else 

' IF "ELSEIF" CONDITIO* PASSES.,. 

eval_booiean(statenent_dat (sp,2) , dg. It passes) ; 
£f ic_passes then 

PRIXT STATEMENT 

pritt_statenent (bp, so, "PASSED")? 

— SET INDICATOR 
con5rtrwe*_5tatu5<qp r depth) t- passed; 

CONTINUE TO NEXT STATEMENT 

sp r- sp + 17 

IF "ELSEIF" CONDITION FAILS 

else 

— PRINT STATEMENT 

pr£ Ki_stAtej2ettt (hp, so, TAILED") ; 

GO ON TO NEXT "ELSE" OR -END- STATEMENT 

cp := el=c_a.r_cfid stst; 
end if 7 ~~ 
end LZz 



ELSE 



when else stafccscriC. -> 



INITIALIZE STATEMENT ADDRES5ES 
else_cr_end_stat :- statementjiat (sp, I) 7 

IF "IF" OR "ELSE IF" iiAS ALREADY" PASSED 

if construct^ status (bp r depth) - oassec then 
— GO ON TO NEXT -ELSE" Oft "END"* STATEMENT 
sp 2- else_Qr_end_=tat; 

OTHERWISE... 



PRIST STATEMENT 

print _ statement (bp, so, "PASSED") - 
SET INDICATOR 

construct status (bp, depth) passed; 
CONTINUE TO NEXT STATEMENT 

sp t= so *■ 1; 
end \%7 



ESD — 



tfher* cnd_stateaest -* 

CONCLUDE CONSTRUCT IF -WKSN/IF" OR. IF "WHENEVER/ EVERY" FINISHED 

if COnst_type (bp, depth) =■ whcs_j5tate=ent or 
coast Jtypc{ bp P depth) - if stateseet or 
C (const _?yp« (Sp, depth) - whenever srazcaenr or 
coast^typo (5p f deprhj s every_stste^9nt) anc 
const recasts tii* (bp, depth) - conclude) then 

PRINT STATEMENT 

print_stateae-t (bp, sp) ; 
RESET STATUS TO INDICATE COMPLETION 

construct status (bp, depth) scTTpiete; 
RESET STATEMENT AND DECREMENT CONSTRUCT NESTING DEPTH 

const — stat cap, aepth) 0; 
depth 1- depth - 1; 

GO ON TO NEXT STATEMENT 

sp := 3? t 1; 
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OTHERWISE, CONSTRUCT SHOULD RECYCLE 
also 

■ - ppfMT STATEMENT 

prisr.stacement (bp, sp, "Rscrrcixs*) • 
RECYCLE TO TOP OF CONSTRUCT 

sp const_stat (Dp, depth) 7 
— BUT EXIT TO POSTPONE RECYCLE TO NEXT PASS 

exit stateaeat_loGp; 

end ir.* 



wait 



when wait^statenent => 

ON FIRST PASS OF wAIT 

i£ wait_or_vnencont status (ap) - coot let 9 tnen 
EVALUATE TLKE INTERVAL 

eval_numeric (statement dat(sp,L) r dg, tiae interval) 7 
SET WAIT TIME (FUDGING 3Y 1 PICOSECT 

t_wait_tA£d(hp) time tiwe Interval - time fud?e; 
SET STATUS TO "PENDING* ~ ~~ 

wait_ or_wnencont status (ba) o^nding; 
— PRINT STATEMENT AT START OF WAIT 

print statement (bp, so r "PENDING") ' 
end Irj- ~ 

ir TIME HAS ELAPSED... 

If time >~ C__WAlt_targ (bp> Cher: 

PRINT STATEMENT AT OD OF WAIT 

print statement; (bp, sp, "COMPLETE" ) 7 

RE$ET~~STATns TO "COMPLETE" 

t_or_wneaeont_js£ati»s (bp) :=• complete; 

ADVANCE TO NEXT STATEMENT* 

sp sp ♦ l; 

• OTHERWISE... 

else 

EXIT STATEMENT LOOP 

exit stateinent_icap; 
end if; 



WHEN/CONTINUE 



when when_ccnt_statcncr:i -> 

EVALUATE "WEES" CONDITION 

evaLjtx>olean(st5te^cnt_dst (sp,3) , cc, it^passesj ; 

If CONDITION PASSES , . . 

If it passes then 

P&INT STATEMENT AS "PASSED" 

orint_statament (Dp, sp, "PASSED") 7 
RESET STATUS TO "COMPLETE* 

wait or whencont__statvs(bp) := cocplete; 
~ ADVANCE TO NEXT STATEMENT 

sp := sp f 1; 

— OTHERWISE, 

else 

IF FIRST ENCOUNTER*.. 

if wait_or__whcneont_4tatus (bo) - cenplcte then 

SET STATUS TO "PENDING* 

uait_or_wnei:cont_status (bp) :- pending; 

PRINT STATEMENT AS "PENDING" 

print _st*tc=<ant (bp, =p, "PEN0INC") ; 

end if? 
EXIT STATEMENT LOOP 

exit 5tsCcmeAt_loop; 
end if; 



CALL — 



whea call^statentent => 

PRINT THE STATEMENT 

print statement (Sp, sp, --); 
INCREMENT CALL LEVEL 

level ;= IcVfcl + l; 
REMEMBER STATEMENT WHERE CALL IS MADE 

cali_stat (bp, level) r- apj 
SET STATEMENT POINTER TO TOP OF 5U3SEQuENCE 

sp := cosipjdata CaiocJc^loctstateisenz^ cat (sp, 1) 1 -*-2) ; 



er.d case; 
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ACTION STATEMENTS 



when action, statements => 



MATERIAL PAJOTCOLAR TO SPSCUIC ACTION graTBWVPO 
case action_statemeirt;= " { =ta tcacnt _t yp ($p) ) is 



SET 



when set statement => 



PRINT THE STATEMENT 
prin£_=ta Cement {bp, Sp, ").- 



COMMAND 



when caesaaad__s£&t&a&!it -> 

PRINT TK£ STATEMENT 

pri:i£._jscateaent (op, s? r 



SIGNAL 



when signal^stateiwt -> 



— — PRINT THE STATEMENT 

print _5tateee£t (Bp, Sp, »■); 
SIGNAL THE EVENT 

set_event (comp_data (statement d»t (sp, 1) +2) ) ; 
ADVANCE STATEMENT POINTER ~~ 

SP sp + I; 



CLEAR 



whfefi elear_starement => 

— PRINT THE STATEMENT 

princjstateeeat (bp, sp, " ); 
CLEAR THE EVENT 

re*ec_ewent (comp data (statement <iat Csp, 1) +2) ) ; 
ADVANCE STATEHENT~PQltITER 

=p sp + 1,- 



— START 



wnea 3tart_scatc=eric. -> 

DECLARE LOCALS 

declare 

- — SLOCK 20INTER 

cpx i bloc* ^poIiLerjtype; 

9EGIN SWCK 

begin 

PRINT THE STATEMENT 

erint statement (bp, so, *•■) ; 
OBTAIN BLOCK POINTER FOR SUBJECT 3ICCK 

bpx ststcncnc_dat(sp,I) ,* 
RESET STATEMENT COUNTER TO FIRST STATEMENT 

statemenc^pointer (fcpx) com? cata (block ioc (bpx) +2) r 
RESET OTHER MATERIAL 

call_levei(ispx) := 0? 

canst_depzn ibex) Q; 

ror i in S. .nsr.l loop 

const m«._statns (ispx, ij complete; 
wait_jcr_wnencotlt_5tatus(bpx: cenpietc; 

end loop; 
ACTIVATE THE BLOCK 

5eque£ce_8t3tas (box) Seq active? 
ADVANCE TO NEXT STATEMENT * 

sp sp -r lr 

END BLOCK 

e£d; 



STO? 



wtren rwop_s ts cedent -> 
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PRINT THE STATEMENT 
print^statement Cbp # sp r 
DEACTIVATE TEE BLOCK 

sequence status < sts tenant jdat (sp, 1} ) sec inactive; 
ADVANCE TO NEXT STATEMENT 
?p := 5? + l; 



RESUME 



when £e±uis&_±t&£££e£r -> 

PRINT THE" STATEMENT 

px±nt state=*nt (bp, 3?, M ") ; 
— ACTIVATE THE BLOCK WITHOUT CHANGING STATEMENT POINTER 

sac^enc® — us (statement jrfat (ot,1) ) sec actlver 
ADVANCE TO NEXT STATEMENT ~ 

sp s- sp + Ip 



PRINT 



wnen print_stateaient 

DECLARE LOCALS 

declare 

— COMPONENT POINTER (EVEN If HIDDEN 3Y DEFINITION) 

cp : coi=p_aoinccr_typc ;= definition ioc (statement dat ($»,!)); 
COMPONENT TYPE OF THING TO BE ? 31 NT ED 

ct i eocp type type :- component zyp(cp) r 
VARIABLE LIST INDEX ~ 

vex i vsr_index_cype7 
VARIABLE SUBSCRIPTS 

losufti, losuba, lo=ub3 ; vsr_SG5script_type; 

hisubl, hlsab2 # nisub3 i VtL=-~subsc=-±D* "yoe; 
DATA GOOD FLAG ~ " 

d? : boolean; 

BEGIN BLOCK 

begin 

PRINT {PART OF) TEE STATEMENT 

priftt_ statement (bp, sp, *"); 

IF IT'S A SIMULATION VARIABLE... 

II ct - &oolean_var or rt = nutieric_var or ct - cfearaeter_var then 

OBTAIN VARIABLE'S LIST INDEX 

vex =- comp_data (cp+2) ; 
EVALUATE SUBSCRIPTS 

evai_*a r_svh=cr ipt £vcx r copp data , dsv 

loscbl. hlsunl, lofirub2, hlsub2, losub3, hi=ub3) j 
CALL. S03R00TINS TO PRINT TEE VARIABLE 

print jrar <v©x r loses! f hisubl, losub2, hisub2, losub3, hisub3) ; 

— OTHERWISE IT IT'S A 300LEAN INTERXAI. VARIABLE^., 
visit ct - t)ool_int_var then 

PRINT IT 

for 1 in U.eoapji&taCcp+l) loos 

otrt (boalean_iatemals (ecaa data (no+4)+i~l) ) ; 

out (■ -); "~ 
end loop; 

OTHERWISE IF IT'S A NUMERIC INTERNA!* VARIABLE..* 

elsi£ «=t - nua — int^var then 

PRINT IT 

for i in J.. .eaap_datA (cpfl) loop 

put (numeric internals (ccaa~ data (cpi-4) +t-l) J ; 
put (•">;■ 

end loop; 

* OTHERWISE IF IT'S A CHARACTER INTERKAL VARIABLE.. - 

elsif ct - eh£r_!ntjrar then 

PRINT IT 

pur ("••>; 

for i in 1. .coap_cata{cp+I] loop 

put (character_internal s {integer (coco data (cp+4) +1-1) )) : 
end loop; ™ 

pet ;•-•>,- 

OTHERWISE SOMETHING'S WRCNC. . , 

cise 

put_iir.o SURPRISING PRINT VARIABLE TYPE 

end if; 



ADVANCE STATEMENT POINTER 

sp sp "r \; 
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END BLOCK 

end; 

. LOAD 



when load_st a tenant => 

DECLARE LOCALS 

declare 

~ COMPONENT POINTERS (EVEN IF HIDDEN SY DSFSKTTIOT) 

cp_left : eniop_pdtec.fejf_E.ype ;= definition loc (statement datfsp,!)); 

ep_righr, s comp^pointertype t- deri3ltion w loc(rtat«nent"dax <sp,2> J ; 
COMPONENT TTF£S ~* 

ct_left ; cDap_type_type rrrrpo nont_typ (cp left); 

ct_right : cono^type_type cosponent typ (cnTVight) ; 

— CCH20K5NT SIZES ~" 

cs_Left : cQi=p_iritc_type ;= coisoonent sir(cp left); 
«_£-ighc ; eoaa_size tyoe; ~ — . 

VARIABLE LIST INDEX ~" 

vex t var index type; 

— variable subscripts 

losubl, lo*vb2, Io=ub3 ; va~__=ubs crip^ type; 
hiy^bl, hisub2 # hisuo3 : var subseriac^tyo©; 

DATA GOOD FLAG ~' ~ 

dg : Boolean? 

BEGIN BLOCS 

begin 

2 HINT [f ART OF) THE STATEMENT 

print_stateeeac (op, sp t "■»); 

EVALUATE THE LOAD MATERIAL, DEPENDING ON TYPE 

if ct_right In boolean_comps taea 

evaijaooiean (statement_dat (sp,2) , dg, cs^right, boolean load oof f); 
eisif ct^right in n«Peric_conips then — - 

eval_nu.T.eric (sLac.ci=en:._aat (su, 2) , dg r cat right, n«mcric_Ioad_buff) ? 
elsif ct_right Irs character jeoep* theft ~ 

eval_estring (statement jiat tap, 2) , dg, cs_right, cnaracter_load__burr) ; 

else • ~" 

pur^llne (-•••« SURPRISING LOAD MATERIAL •••**<•); 
end if; 

IF DATA tS SINGULAR, REPEAT XZ LSI BUFFER AS NECESSARY 

if c=_right - l and cs_left > 1 then 
'or i in 2..cs_left loop 

if ct_righc ift boGlfcan_conns S.hcn 

boolean load_bur,r (I) boolean_l6aa_burr (1) ; 
el2i£ ct_right in numeric comps then 

numeric_load_nuf5<i) 7= nccxcric_load_buff (1) ; 
elsif ct_right in eharac£ex_comos then 
ch&racter_load_Puf t (intecerti) ) t- 
characcer lo=d bsff (1) ; 

end if; 
end loop; 
end if; 

— - IF IT'S A SIMULATION VARIABLE.- - 
if ct_lftft - boolean var or 
et Left - numericTvar or 
ct~ieft - characterjrar then 

03TAIN VARIABLE'S LIST I2IDZX 

vex cosajfiatatcp leit+2) ; 
EVALUATE SUBSCRIPTS*" 

eval var^SUbscript (vex, cospjdata (cp_lef t+3) * dg, 
Tostlal , hi giial, losus2, hl±ub2, losub3, hisub3) ; 
CALL SUBROUTINE TO LOAD THE VARIABLE 

load_var (vex, loscbl, hiscbl, lo«vb2, hisub2 r Xofitib3 # hisub3) ; 

OTHERWISE IF IT'S AS DffTERKAL V3»RZA3LE*-* 

els if ct__ left - Dool_int_^r or 
ct_lelt - nU2_i nt^yar or 
ct^left = cha£_inL__var then 

LOAD THE INTERNAL VARIABLE 

for i in I*.cs^left loop 

11 Ct left "in hoolcan_cor*.ps then 

booiesn_internals (co3p_data (co_Ief t+4 ) +i-l) :» 
boolca n__ I oad_buri"( 1 ) ; "~ 
eisif Ct_left in ntiacr-i c_conps Chen 

nu=^ie_inC*rn^I»Ceonip_citja (cp_l«£t-f-4 )+•!-!) 
nrnrp tL c_loe d_baf Z (!) ; 
sin if £C__lert In cnaracter^cocpc then 

eharaczer^intcmala (i r.ieger (eempjiata (cp_left+4) +i-l) ) := 
ch=ract.er_JLoac_barr [Integer "(1) ) ; 

end if; 
enc ioopr 

OTHERWISE SOMETHING'S WRONG... 

else 



pu-_lin^» 3UR2RI5IN3 LOAD VARIABLE TYPE -j; 
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end if; 

ADVANCE STATEMENT POIKTER 

ap sp + 1; 

- — end etocx 

end; 



MESSAGE 



when aes5ag©_=tiiteeient -> 

PRINT TEE STATEMENT 

print_ctatc=-.cnt (bp, sp, ; 
ADVANCE. STATEMENT POINTER 

sp sp + I; 



end case; 



NON-EXECUTABLE STATEMENTS 



when nonexecute statcce^cs 



DECLARE 
DETTXE 



— PRINT THE STATEMENT 

print statement (bp, ap# " W )J 

— ADVANCE STATEMENT POINTER 
sp ip ♦ i; 

end case; 

end loop scateprent_loap; 



~ PROCESSING AFTER EACH SEQUENCE EXECUTED 

— RECAPTURE LOCAL COPY OF STATEMENT POINTER 

stateiwrtjioicter (bp) sp; 

RECAPTURE CALL NESTING EZVEL 

call^ievel (bp) level; 

RECAPTURE CONSTRUCT NESTING DEPTH 

consc_depth (bp) ;» depth; 

CLOSE PRINT PACKET IF PRINTING OCCURRED 

ir priarinQjoccwrrod then 
print_ cIqsc; 

priircing_p^t 4 ^rred false; 
end if; 

end if; 

end loop block_lopp; 

PROCESSING AT END OF EACH TlMELINER PASS 

END RUN IT NO SEQUENCES ACTIVE 

if n act_seq = a then 

t;l_ststus tl finished; 
end if; 

REQUEST THAI LOADS PROCESSED THIS PASS 3E PERFORMED 

perfoan__losd=; 

end if; 

REQUEST NEXT TRANSFER OF GRAB/PRIMI VARIABLES FROM OTHER KACKlPiSS 

reqaest__i noui ; 

INCREMENT PASS COUNTER 

pass_cou=cer passjeownter + I; 

end tl exec; 



SUBROUTINE TO EVALUATE •BEFORE/ WITH IN* 

function wljoexore_within <b? : in blQ^aointer type; . f ^ 

DATA GOOD FLAG 

da : boolean; 
DIC "BEFORE" CONDITION PASS? 

itjpasses : tl_booitian; + - 
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TIME INTERVAL IN "WITHIN" SXaiEMSNT 
time interval ; tl_nu=er±c; 



b^gin 



IF IT'S A "BEFORE" STATEMENT. . . 

if states ent_typ (sp) - befQre_^tatesent then 

— RETURN EVALHATTON OF CONDITION 

evaljsaolean Ccomp_data (sta£_l6e(sp>+l) , dg, it_passc=J ; 
return it ^passes; " ~ 

IF IT*S A "WITHIN" STATEMENT..- 

els if statement: typ (5?) » within_statenant then 

— ON FIRST PASS OF PARENT CONSTRUCT..- 

if cotiitruct status (bp, depth) * initial then 

SVAZDATE~riME INTERVAL 

eval numeri c ( cojn=_data (stat_io c (sp) -^1 ) * dg, tiine_^nre rval ) ; 
— 52T WAIT TARGET THE (FUDGING 3Y 1 PICOSECOND) 

t within targ(bo, deoth> r c tiisc + tiaej.nterval - ci.-rc^Cucgc; 



rp TJI3ffi ff^s EL&F5ED ■ 

if tiae t within_ 

INDICATE 

rcttixn true; 

eO.se 

return fal?c? 
end ifr 

end if? 

end eval before within; 



end tl execute; 



end l£; 




